home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / NEW / A-Newest / TORPET.d64 / detecting format (.txt) < prev    next >
Commodore BASIC  |  2009-10-12  |  314b  |  14 lines
  1. 340 REM  ------------------------------
  2. 350 Z$=CHR$(0)
  3. 360 DV=8:D=0:REM  DEVICE, DRIVE
  4. 370 T=35:S=16:REM  TRACK, SECTOR
  5. 380 OPEN 15,DV,15:OPEN 1,DV,3,"#"
  6. 390 GOSUB 450:IF E THEN STOP
  7. 400 PRINT#15,"U1"3;D;T;S
  8. 410 GOSUB 450:IF E THEN STOP
  9. 420 FOR J=0 TO 7:GET#1,I$
  10. 430 PRINT ASC(I$+Z$):NEXT J
  11. 440 CLOSE 1:CLOSE 15:END
  12. 450 INPUT#15,E,E$:PRINT E;E$:RETURN
  13. 460 REM  ------------------------------
  14.